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-TITLE SYSSETIME = SYSTEM SERVICE TO SET CURRENT SYSTEM TIME 
- IDENT *ybe=000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N : ACCORDANCE WITH THE TERMS OF SUCH pint AND WITH THE 
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TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
aePORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS » 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 
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S NOT SUPPLIED BY DIGITAL. 
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yvO3-012 SRB0125 Steve Beckhardt 66-Jul-1984 
Zero distributed deadlock detection stasstenp 
ouptrat tens when a SET TIME is performed. The approach 
taken in change SRBO117 may cause false deadlocks. 


v03-011 SRBO117 Steve Beckhardt 99-Apr-1984 
Recompute distributed deadlock detection timestamp 
expirations when a SET TIME is performed. 


v03-010 CWwH3010 CW Hobbs 6-Dec-1983 
Change references to EXESREAD_TODR and EXESWRITE_TODR 
to use the phystcol register Foutines EXESREADP_TODR and 
EXESWRITEP_TODR. This is so that the non-p routines for 
Nautilus can fabricate the TODR from the quadword system 


v03-009 KDM0086 Kathleen D. Morse 13-Oct-1983 
Rearrange order in which PR$_TODR and EXESGQ_SYSTIME 
are set so that the same code works for MicroVAX | and 
for all other VAX systems. 


v03-008 CWH3008 CW Hobbs 10-Sep-1983 
If poreneter map in BOOTCB is null, then return success 
without writing time out. If running standalone an 
system disk has been removed, then map will be null. 


v03-007 DWT0125 David W. Thiel 23-Aug-1983 


STP Se TARE ~ SYSTEM SERVICE TO SET CURRENT systéM T 197360 -138¢ 4 96:20:28 AX/VMS Macro v04-00 Page dp 


SEP-19 SYS.SRCISYSSETIME .MAR; 1 


i 

Add internal en ry point EXESSETIME_INT that avoids writing | 
to the system dis Restructure code to support this new 
entry point. | 
| 


v03-096 KDM0056 Kathle gn Dd. forse 12-Jul-1983 
Change references to TPR TODR use cpu-dependent 
routines: EXESREAD_TODR and EXESURITE  TODR™ 
v03-005 ROWO121 glen 0. Weber 4-AUG-1982 
raenee A to jexebabc ore. _* $0.8 that it is performed at 
IPL$_SYNCH, ion fo $BO0TCB CHK requires that the 
routine. be called at or 4, this IPL to prevent modification 
3 volitile protions of the SYS.EXE window control block which 
3 is a part of the area checksummed. 
00 v03-004 KDM0002 een D. Morse 28-Jun-1982 
Bop oe Added $IODEF and weespere 
4 7 V03-003 PHLO101 Peter H. i {open 20-Jun-1982 
00 7 $Q10W now synchronizes the EFN and IOSB parameters 
0000 oe correctly. Eliminate the synchronization code here. 
000 80 
44 81 ; SYSTEM SERVICE TO SET THE CURRENT SYSTEM TIME 


DOES ANYBODY ~ pare nee WHAT TIME IT IS? 
DOES ANYBODY REALLY gt 


IF SO 1 AGINE Ww 
WE'VE ALL GOT TIME ENOUGH’ TO DIE. 
CHICAGO 1971 


Se 
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90 .SBTTL DECLARATIONS 
8 | : MACRO LIBRARY CALLS 
$y 
36 SBOODEF :DEFINE BOOT CONTROL BLOCK OFFSETS | B00! 
36 SIODEF ;DEFINE 1/0 FUNCTION CODES | BUG 
9 SIPLDEF DEFINE INTERRUPT PRIORITY LEVELS C 
38 SPCBDEF DEFINE PCB OFFSETS CVT 
9 SPRDEF SDEFINE PROCESSOR REGISTERS END 
100 SPRVDEF [DEFINE PRIVILEGES ERR 
101 SSSDEF ‘DEFINE SYSTEM STATUS CODES EXE! 
1 i STOEDEF [DEFINE TIMER QUEUE ENTRIES EXE! 
op Z SVADEF DEFINE VIRTUAL ADDRESSES ene 
0 105 ; EXE! 
B29 198 3 ; LOCAL SYMBOLS ene 
$8 108 : ARGUMENT LIST OFFSET DEFINITIONS EXE! 
000 110° EXE! 
00000004 0000 111 TIMADR=4 :NEW TIME EXE! 
$00 118 i 
93981 | om stomce i 
00000000 116 . .PSECT YEXEPAGED :PAGED DATA AND CODE 
a3 ve 
000 119 : BASE TIME FOR TIME-OF-DAY PROCESSOR REGISTER (TODR). THE TODR CAN'T 
0000 120 : CONTAIN THE ENTIRE SYSTEM TIME, SO IT IS DEFINED TO CONTAIN A VALUE 
9000 1 ; RELATIVE TO THE BASE TIME. THE BASE TIME IS DEFINED AS: 
$8 : 5 : 01-JAN-CURRENT_YEAR 00:00:00.00 
0000 125 : TO ALLOW CONVERSION OF THE TODR VALUE TO SYSTEM TIME FORMAT 
90 1 $ : THE TODR AND ITS CORRESPONDING SYSTEM TIME ARE STORED | IN THE SYSTEM 
99 127 ; IMAGE FILE (SYSSSYSTEM:SYS.EXE). BECAUSE ALL TODR'S HAVE THE SAME 
000 1 g : BASE, A DISK THAT IS BOOTED ON ONE SYSTEM CAN BE TRANSPORTED TO 
000 9 ANOTHER SYSTEM AND THE TIME WILL BE SET CORRECTLY. 
"9 131 BASETIME: :BASE TIME FOR TIME-OF-DAY REGISER 
2D 4E 41 4A 2D 31 9 1 ‘ LASCII /01-JAN-/ : 
0 9 133 BASEYEAR = .-BASETIME > (OFFSET TO YEAR) | 
30 3A 30 30 3A 30 30 20 58 07 134 <ASCII /XXXX 00:00:00.00/ : 
0 boi O17 5 BASETIMESZ = .-BASETIME :BASE TIME STRING SIZE 
+E 1 $ TO DETERMINE WHETHER OR NOT THE PROCESSOR TIME-OF YEAR CLOCK (PR$_TODR) HAS 
O17 1 g ; ROLLED OVER THE YEAR, WE MUST KNOW HOW LONG T E BASE YE WAS. TO CALULATE 
17. 139; T TIME WE NEED A DEF ANITION OF THE END D OF A us! NG THE ABOVE 
017 140 ; DEFINI TION OF THE FIRST OF THE YEAR AND THE F oLtOwINe™ Eno” OF YEAR, WE CAN | 
17 141 : USE THE APPROPRIATE SYSTEM SERVICES TO CALCULATE THAT SPAN OF TIME = ALWAYS 
4 146 PROPERLY ALLOWING FOR LEAP YEARS. | 
17 144 ENDTINE: 
20 58 58 58 58 2D 43 45 44 2D 31 33 17 145 LASCIL /31-DEC-XKKX 23:59:59.99/ > END OF YEAR (= 10ms) 
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148 > SYSTEM DISK LOGICAL NAME 
é 150 
E 15) 
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SYSDISK: :SYSTEM DISK LOGICAL NAME 
.ASCID /SYSSSYSDEVICE/ 
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SYS CRCTSYSSET IME MAR; 1 
: .SBITL SET TIME 

EXESSETIME - SET CURRENT SYSTEM TIME 

THIS SERVICE PROVIDES THE CAPABILITY TO RESET THE CURRENT SYSTEM TIME. 


; EXESSETIME_INT = INTERNAL ENTRY POINT THAT RECOMPUTES INTERNAL TIME 
AND WRITES NOTING TO THE DISK. 


; INPUTS: 


TIMADR(AP) = ADDRESS OF NEW TIME VALUE. 2 OR Ste ie: OR 


; ERO F 
: TIME VALUE CAUSES THE PROCESSOR'S TIME-OF-DAY CLOCK 
: TO BE USED TO RECALIBRATE THE CURRENT SYSTEM TIME. 

; R4 = ADDRESS OF CURRENT PROCESS PCB. 

: OUTPUTS: 

; RO LOW BIT CLEAR INDICATES FAILURE TO SET SYSTEM TIME. 

: RO = SS$_ACCVIO = TIME VALUE CANNOT BE READ BY CALLING 
; ACCESS MODE. 

: RO = SS$_IVTIME - A NEGATIVE TIME VALUE WAS SPECIFIED, 
3 OR AN INVALID PROCESSOR CLOCK VALUE WAS FOUND. 


RO = SS$_NOIOCHAN = NO 1/0 CHANNEL IS AVAILABLE FOR 
OSE BY THE SERVICE. 


RO = SS$_NOPRIV - THE CALLING PROCESS DOES NOT HAVE 
OPER OR LOG_IO PRIVILEGE. 


RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
RO = SS$_NORMAL - NORMAL COMPLETION, SYSTEM TIME SET. 


CURRENT SYSTEM TIME (EXESGQ_ SYSTIME) IS SET TO SPECIFIED 

TIME. PROCESSOR'S TIME-OF-BAY CLOCK IS UPDATED TO NEW TIME. 

EXESSETIME ONLY -- NEW TIME IN SYSTEM TIME FORMAT AND TIME-OF -DAY 
LOCK FORMAT IS WRITTEN TO SYSTEM IMAGE FILE 


(SYSSSYSTEM:SYS.EXE). 
-ENABLE LSB 
EXESSETIME_INT:: 
-WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; ENTRY MASK 


MOVL TIMADR (AP) RI :GET ADDR OF NEW TIME ARGUMENT 

PUSHL @# :STORE FLAG 

BRB 208 

ENTRY EXESSETIME ,~ : SET CURR NT SYSTEM TIME 
M<R2,R3,R4,R5,R6,R7,RB,RO,RIO,RI1> = (ENTRY MASK) 

MOVZWL $*#SS$_NOPRIV,RO ;ASSUME NO PRIVILEGE 

IFNPRIV OPER, 90$ [BR IF NO OPER PRIVILEGE 
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IFNPRIV LOG 19.908 ;BR IF NO LOG_IO PRIVILEGE 
MOVZWL S*aS ACCVIO.RO SASSUME ACCESS VIOLATION 
ROVL | pork iGET ADDR OF NEW TIME ARG 

FNORD #8, (R1),90$ [CAN TIME BE READ? 

LRL = §P) SSTORE FLAG ON STACK 
MOVAQ =(SP),R TALLOCATE BINARY TIME BUFFER 
MOVAQ =(SP)-R SALLOCATE ASCII TIME BUFFER DESCRIPTOR 
SUBL2 #<BASETIMESZ+3>8°C3,SP ALLOCATE ASCII TIME BUFFER 
MOVL P, tHOLD POINTER TO IT 
MOVL  R7.4(R8) SCREATE DESCR 
MOVL #BASETINESZ, (RB) LENGTH FIELD 
TSTL OR [1S A TIME SPECIFIED? 
BEQL RECA :BR IF NO = RECALIBR 
MOVZWL #SS$_IVTIME,RO ASSUME INVALID TIME 

vO (R1) 7R10 [GET TIME = R10,R11 
BGTR  COMPUTE_TODR BR IF VALID TIME 
RET ;RETURN WITH FAILURE 


9 

ATE 
BEQL RECAL :BR IF ZERO - RECALIBRATE 
-DISABLE LSB 


K | 
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«SBTTL COMPUTE TIME-OF=DAY CLOCK VALUE 


COMPUT_TODR = COMPUTE NEW TIME-OF=DAY CLOCK VALUE. 


; 


| 
COMPUTE NEW TIME-OF-DAY CLOCK VALUE BY COMPUTING THE NEW | 
| 
| 


; : IME AFTER THE BASE TIME AND SCALING TO EC UNI 

i > INPUTS: 

4 : R10,R11 = NEW SYSTEM TIME. 

4 + OUTPUTS: 

H : RO = NEW TIME-OF-DAY CLOCK VALUE. 

69 se< 

50 COMPUTE_TODR: ;COMPUTE TIME-OF-DAY CLOCK VALUE 
FF69 CF 51 MOVAB BASETIME,R2 [GRAB CORRECT TIME STRING 

3 BSBB CvT_TIME [CONVERT THE TIME 

5 MOVQ  RIOTR [GET NEW TIME 

54 SUBL  (R65+,R0 SCOMPUTE YEAR'S DELTA 

35 SBWC 2 «(R6) RI :IN 100 NANOSECOND UNITS 

$ EDIV W*SCALE,R0,RO,R1 :SCALE TO 10 MS UNIT 

£ ASHL = #1ER : (SINCE NO UNSIGNED EDIV) 

58 ADDL #<fa2h>,RrO ;COMPUTE BIASED VALUE FOR TODR 

59 [VALUES LESS THAN BIAS ARE USED 

60 [TO DETECT CLOCK POWERFAIL 

61 BRW SET_TODR :GO SET TIME-O 


shy eATFg Stee v0 ser coment stvkn y sgeetgs BBR HNC StH Ten 


. .SBTTL CVT_TIME 


27 

: ; CVT_TIME = CONVERT AN ASCII STRING TO A BINARY TIME 

8 ; INPUTS 

: R? - POINTER TO TIME STRING 

4 3 R10, R11 = NEW TIME IN BINARY 

, + OUTPUTS: 

a : Ré = POINTER TO QUAD WORD TIME 

id: ; R7 = POINTER TO ASCII TIME 

77: Rs - POINTER TO DESCRIPTOR FOR ASCII TIME 

28 R9 = ASCII VALUE OF BASE YEAR 

p t=. 

: CVT_TIME: 

VQ  —- R10, (R6) ;SET NEW TIME IN BUFFER 

4 SASCTIM_S TMADR= (RG) ,~ [CONVERT NEW TIME TO ASCII 

5 TIMBUF = (RB) ; 

: MOVL BASEYEAR(R7),R9 'GET NEW TIME'S YEAR 

MOVC  #BASETIMESZ,(R2),(R7)  ;MOVE TODR BASE TO ASCII BUFFER 
88 MOVL _R9, BASEYEAR(R7) :MOVE NEW TIME'S YEAR TO BUFFER 
SBINTIM_S FIMADR= (RG) = [COMPUTE TODR BASE IN BINARY 

90 TIMBUF = (RB) ; 
91 RSB TLEAVE 
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-SBTTL RECALIBRATE 


+ 
+ 


; RECAL ~ RECALIBRATE USING TIME-OF=DAY CLOCK 


THE yt ee Flock hs hg te T 
THAN THE INTERVAL TI IF 
SDE CAN arto USED 0° RECAL BRAT 


= 
= 
ch 
* 
nm 
«< 
oman 


IMPORTANT ms NOTE THAT THE rere A CLOCK HAS A LIMIT 
OUT MONTHS. IT SHOULD NEVER BE A 


HY Re 


“TOD = PRS$_TODR - EXES6L TODR 

~TIME = DECTA-T0 AL 

Q SYSTIME. EXE$GQ TODCBASE = EXE$GQ_TODCBASE + PE) TAsT IRE 
OBR = PR$_TODR = BASE-YEAR IF PR$_TODR > BASE_YEAR 


| as TC Pe ETO 


INPUTS: 
TIME-OF =DAY PROCESSOR CLOCK. 
OUTPUTS: 


4 = NEW TIME-OF-DAY CLOCK VALUE 
R10,R11 = NEW SYSTEM TIME COMPUTED FROM TIME-OF=-DAY CLOCK 


RECAL: sRECALIBRATE USING TOD CLOCK 


CALCULATE HOW LONG THE BASE YEAR (DEFINED BY i VALUE IN EXE$GQ_TODCBASE) 
I IS VALUE MAY NEEDED LATER TO CORRECT THE YEAR ROLLOVER” IN THE 
HARDWARE TIME OF YEAR CLOCK, The CALCULATION IS DONE EARLY BECAUSE 

1) IT DOES NOT DEPEND ON ANY CHANGING REGISTERS, AND 2) IT CAN BE DONE 

AT ZERO IPL (SBINTIM IS PAGED). 


MOVAQ G*EXE$GQ_TODCBASE AP :GET A POINTER 
MOVQ  (AP),R107 PICK UP CURRENT BASE TIME 
MOVAB ENDTIME,R2 : PROPER TIME STRING 
BSBBoéG VT TIA : CONVERT THE TIME 
MOVa = (R6J,R1 HOLD YEAR-END TIME 
MOVC #BASETINESZ BASETIME,(R7) :MOVE BASE STRING TO BUFFER 
MOVL _R9, BASEYEAR(R7) ;MOVE NEW TIME'S YEAR TO BUFFER 
SBINTIM_S FIMADR=(RG) .= ;COMPUTE TODR BASE IN BINARY 
= 
SUBL (R6)+ R10 i COMPUTE BA BASE YEAR'S LENGTH(-10 ms) 
SBWC 0s (RO) RV NANOSE COND Units 
ADDL BPSCALE2 .R10 3ADD IN THE MISSING 10 MS 
ADWC #0 RI 
MOVa  R10,RO COPY 
EDIV B*SCALE,RO,RO,R1 [SCALE TO 10 MS UNITS 
ASHL #1,RO,R2 : (SINCE NO UNSIGNED EDIV) 


peevice TO SET CURRENT sVstéM T _* $EO- 138% 9: 3: 28 eat Pets v04-00 Page 


voe=600~ RECAL 


TEM 
ALIBRAT SYS. SRCIJSYSSETIME. MAR; 1 
1 ; 
1 ° : AT THIS POINT: 
1 : ; R10:R11 = THE NUMBER OF 10 NANOSECONDS IN THE BASE YEAR 
3 i R2 = THE NUMBER OF 10 MILLISECONDS IN THE BASE YEAR 
1 5 : WE MUST CHECK THE PROCESSOR’ § TIME wor YEAR CLOCK (PR$_TODR) TO SEE IF 
1 8 : IT HAS HAS MORE THAN YEAR'S voRT H OF TICKS IN IT. TIF SO, WE SUBTRACT 
1 : OUT THE YEAR FROM THE a lOCk. WE DO NOT CHANGE THE CLOCK. 
1 8 : IN EITHER CASE, WE THEN OBDATES THE "eygE eh TIME FROM THE CORRECT 
39 + VALUE OF THE TODC. 
1 3 é LOCK_START: ZSTART OF LOCKED-DOWN CODE 
1 DSBINT W*LOCK_IPL ‘DISABLE ALL INTERRUPTS AND 
120 636 : LOCK CODE IN MEMORY 
0000000'EF Ig 1 p 64 JSB EXESREADP_TODR [GET TIME OF PHYSICAL pay CLOCK VALUE 
51 50 00000000'GF C3 01 65 SUBL3 G*EXESGL_TODR,RO.R1 GET TOD DELTA TIME (10 MS UNIT 
1 1A 0138 66 BGTRU 7ZERO OR POSITIVE IS OKAY 
FF7C2A00 BF 51 «D1s013D S36 CMPL R11, #=<24%60#60*100> SIF NEGATIVE, THEN IF MORE THAN A DAY 
6 1F 0144 68 BLSSU ERROR SINVALID TIME IN PROCESSOR CLOC 
5A 00 «651s BO"AF) = 7A (0146—Stis886 EMUL BrSCALE2 RI .#0.R10 SELSE COVERT TO 100 NANOSECONDS 
3 11 O14¢ 20 BRB 0$ SAND CONTINUE ON 
53 52 10009900 ef C1 014 re 5$: ADDL3 Bara fens ;ADD IN THE BIAS TO THE YEAR 
5 D1 (01 7 CMPL RO,R SCORRECTION NEEDED FOR CLOCK? 
1F y rh BLSSU ‘NO CORRECTION NEEDED 
0158 id: + THE CLOCK HAS ONE YEAR TOO MANY TICKS. WE MUST SUBTRACT OUT 
0158 377 : THE BASE YEAR FROM THE PROCESSOR TODC. AFTER THE YEAR IS SUBTRACTED OUT, 
138 A: + THE DELTA WILL BE CORRECT. 
50 52 c2 0158 380 SUBL = R2, RO ;SUBTRACT OUT A YEAR 
13E a1 1 10$: 
13E ¢ i ; AT THIS POINT: 
15 4: RO = CORRECT TODR + BIAS TO GO INTO PROCESSOR REGISTER 
13E 5; R1 = CORRECT TODR DELTA TO FIGURE TIME 
SA 51SEC sO $ EXTZV #1,#31,R1,R10 :DIVIDE BY 
16 8 : (SINCE SIGNED EMUL) 
5A 00 SA B8S'AF 7A 016 EMUL BYSCALE, R10, #0,R10 : COMPUTE NANOSECOND DELTA 
07 51 +€9 0169 0 BLBC ‘BR IF NO CORRECTION NEEDED 
5A B9'AF «CO 1 91 ADDL G. SCALE2, R10 [ADD LAST 10MS UNIT 
58 00 08 01 36 ADWE = #0, R1 [TO QUADWORD 
A 6 C 17 93 20$: ADDL (AP) ,R1 ;FORM ABSOLUTE TIME 
5B 04 AC «OB COO? 94 ADWC © 4(APSR11 
19 11 7A 99 BRB SET_TODR1 ‘SET THE TODR REGISTER 
17¢ 3 : THE VALUE IN THE PR OCESSOR CLOCK WAS LESS THAN THE BIAS (2°28) 0 
17¢ 38 : IT WAS GREATER THAN LAST VALUE STORED IN EXESGL_TODR - ENDISATING 
17¢ 399 : THAT THE SYSTEM DISK HASN'T BEEN BOOTED IN A VERY LONG TIME AND THUS 
7 4 9 : THE YEAR WITHIN DATE WILL NOT BE CORRECT. 
7 «4 j ERROR: ENBINT 
50 0184 8F 3¢ 17F 4 MOVZUL #SS$_IVTIME,RO : INVALID PROCESSOR CLOCK VALUE 
4 i 4 . RET “LEAVE AND REPORT IT 
1 3 406 : SCALING VALUE FOR CALCULATIONS = MUST BE HERE SINCE IT IS REFERENCED 


B 4 
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soe _ RECALIBRATE g- SEE] 382 8: 30: 28 SYS.SRCJS SYSSETIME MAR: 1 ” it 
if i iH ; FROM WITHIN A LOCKED-DOWN SECTION OF CODE. 
0030040 01 SCALE: .LONG <1 *2> ;NUMBER OF 100 NS IN 10 MS ® 2 
00186A0 01 410 SCALE2: .LONG we 19985 ‘NUMBER OR 18 NS IN 8 oa 


“4 
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voLs500 SET TODR mete ete 87S] obe 88:38:85 SYS SRCTSYSSEY IME MAR: 1 — 4) 


-SBTTL SET TODR 

ee 

SET_TODR = SET NEW TIME-OF=DAY CLOCK VALUE 
SET NEW TIME IN TIME-OF=DAY CLOCK, SYSTEM TIME, AND SAVE BOTH 
IN SYSTEM PARAMETERS. ALSO RECOMPUTE REMAINING TIME INTERVAL 


IN TIMER QUEUE ENTRIES. 
INPUTS: 


RO = NEW TIME-OF=DAY CLOCK VALUE 
R10,R11 = NEW SYSTEM TIME 


DSBINT W*LOCK_IPL ;DISABLE ALL INTERRUPTS AND 
SLOCK CODE IN MEMORY 
SET_TODR1: 


MOVQ  G*EXESGQ_SYSTIME,R4 :GET CURRENT SYSTEM TIME 
MOV R10,G*°EXESGQ_SYSTIME | :SET NEW SYSTEM TIME 


Ronomeeeer fe 7D 
MOVa R10,G*EXE$GQ_TODCBASE SAVE SYSTEM TIME OF TOD REG 


OO'GF 5A 7D 
Q0000000°GF 5A 7D 


WOVUIMOIOIVUTVTVTVTVTVUVTVTVTVTVTVTC9O 


| 

; At this point we should write the new value. We use the payetcet routine 

; to force this to written into any hardware TODR registers that aor exist. 
e 

| 

} 


: On Nautilus, this forces the slow, non-interruptible write into t clock 
; of the console processor. On other processors, the physical function is 
; identical to the non-physical function. 


QOOOOO0O"EF 16 440 JSB EXESWRITEP_TODR SET AS CURRENT TIME INTO PHYSICAL REG 


01 
01 
4 
1 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
0180 441 ; 
01B0 442 ; mageresy the processor TODR value must be done after a new time is 
0180 443 ; written into EXESGQ_SYSTIME in order for this routine to work on 
0180 444 ; MicroVAX I. This i§ because the routine EXESWRITE_TODR re-computes 
01B0 445 ; the value to write based on a base year determined from EXE$GQ_SYSTIME, 
0180 446 ; We use the physical function to make sure that we pick “» any translations 
0180 447 ; which might have been performed. One example would be the conversion to 
4 3 rf 3 one-second time resolution for the Nautilus physical clock register. 
00000000'EF 16 0180 450 JSB EXESREADP_TODR GET TIME (MAY BE DIFFERENT THAN 
186 451 ; WHAT WAS WRITTEN) 
00000000'GF 50 00 : : t2§ MOVL RO,G*EXESGL_TODR SAVE TOD REG OF BASE 
Q1BD 454 ; Recompute expiration times that were not specified as absolute so that the 
4 D $2? ; remaining interval is the same for the new system time. Absolute expirations 
; . 128 ; will occur with respect to the absolute value of the new system time. 
A ee C 18D 458 SUBL R4,R10 ;COMPUTE DELTA OF 
B 2. 1 ° 459 SBWC R5,R11 ; OLD AND NEW TIMES 
53 ede — 01 460 MOVAB GOGXESGLTOFL .R3 GET ADDRESS OF TIMER QUEUE HEAD 
3 D QICA 461 MOVQ (R35) ,R ; Get existing timer queue 
E 0 7D 91CD rh MOVG RO,-(SP) ; Save ex sting timer queue 
61 E 0 01 46 MOVL SP, TQESL_TQFL(R1) ; Readjust Links of endmost entries 
04 A i) 1 464 MOVL Bt. FOG St TOBL (RO) 5 
D 1 465 2 (R35) ; Reinitialize timer queue to empty 
A D 1DA re MOVL 4(R3) : 
5 00 BE oF 1 5 467 10$: — REMQUE 4 (SP) ,R5 ; Remove an entry from saved queue 
E D 01 468 BVS $ ; Br if no more to remove 
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256: 


TQESQ_TIME+4(R5) 1S THIS A VALID 


LCKSGO_BITMAP_EXP,RO 


; THE PRECEDING 


SABLE ALL INTERRUPTS 
; PAGED IT MUST MEM 


. THE USAGE OF THE DSBINT MACRO 
RUPTS AND FAULTS INTO MEMORY THE CODE 
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TIME? 
Is I 


(PERMANENT ENTRY NVALID) 


208 -BR IF NOT 
#TOESV ABSOLUTE , TOESB_ROTYPE (RS) ,20$ 


+ TOESQ_TIME (RS) 
TOE SO TIME +4 (RS) 
Q TIME(RS), 


Br if specified as qproctate time 


: $s 
; ADD SYSTEM TIME DELT 


; TO REMAINING INTERVAL 

; Get time value 

; Reinsert in queue 

= fleen temporary queue 

Get eéerons Of deadlock timestamps 

; Reset deadlock expiration timestamps 
;RE-ENABLE INTERRUPTS 

TSAVE TIME IN SYSTEM IMAGE 


BUT SINCE IT IS 


e IPL NEEDED TO BLOCK EVERYTHING 
OF LOCKED-DOWN CODE 


ASSUME <LOCK K_END-LOCK. START> LE sng ONE PAGE TO A CUSTOMER 
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-SBTTL SAVE TIME 


; SAVE TIME = SAVE TIME-OF=DAY CLOCK VALUE AND SYSTEM TIME 
SAVE TIME OF DAY REGISTER AND On Sete syste TIME IN THE 
SYSTEM IMAGE FILE. THESE ARE LOCATED IN THE S$ 4D PARAMETERS 
SO WE WILL JUST WRITE THE SYSTEM PARAMETER PAGE(S). 


INPUTS: 


EXESGL_TODR = TIME-OF-DAY CLOCK VALUE. 
EXESCO™ “TODCBASE = SYSTEM CORRESPONDING TO TIME-OF=DAY CLOCK. 
-ENABLE LSB 
SAVE_TIME: SAVE TIME IN SYSTEM IMAGE FILE 
BLBS <-4(FP),5$ :BRANCH TO SKIP WRITI 
MOVAB G*EXESA_SYSPARAM,R2 [GET SYSTEM PARAMETER ADDRESS 
BEGIN_NOPAGE : [PROTECT CHECKSUM OPER. FROM OTHERS 
DSBINT IPL__SYNCH ZAND MAKE THIS CODE NOT PAGE FAULT. 
JSB FE XESBOOTCB_ CHK :1$ THE BOOT CONTROL BLOCK OK? 
BEQL f $s : CH IF YES 
ENBINT SRESTORE PREVIOUS IPL 
BUG_ CHECK BADBOOTCE SISSUE NON-FATAL BUGCHECK 
move $*#SS$_NORMAL ,RO iEAKE A SUCCESSFUL COMPLETION 
BRB EXIT XIT 
10S: ENBINT ‘RESTORE PREVIOUS IPL 
MOVL BOOSL_PARAM_MAP(RI).R3 [ADR OF VIRTUAL TO LOGICAL MAP 
BEQL $ <NO MAP, RETURN SUCCESS. NO 
: IF RUNNING WITHOUT SYS DISK 
ASHL #3, (R3)+,R6 [RETRIEVAL POINTER COUNT 
MOVAL =(SP),R4 TALLOCATE BUFF FOR CHANNEL 
MOVAG =(SP)-R5 :ALLOCATE BUFF FOR IOSB 
SASSIGN_S DEVNAM=SYSDISK,= ;ASSIGN A CHANNEL TO SYSTEM DISK 
BLBC RO,EXIT ‘BR IF ER ROR. 
20S: ASHL #9.(R sR? :BYTE COUNT FOR THIS RTRV PTR 
MOVL  (R$)+_R8 :STARTING LBN FOR THIS PIEC 
$01 OW _S CHAN=(R4),- [SAVE NEW TOD WITH SYSTEM PARAMS 
FUNC=S*#10$_WRITELBLK,- : 
EFN=S“#EXESC_SYSEFN,-  :EVENT FLAG 
P1=(R2),- i VIRTUAL ADDRESS OF BUFFER 
Peek? ‘BYTE COUNT TO TRANSFER 
P35=R8,- :LBN 
10SB=(R5) 
BLBC = RO, 608 ‘BRANCH IF FAILED TO QUEUE REQUEST 
mMOVZwL (R5) RO [GET STATUS FROM 10SB 
BLBC RO.6 [IF ERROR, THEN 
ADDL _—R7_R :SET UP TO WRITE FROM NEXT 
SOBGTR ~ $ >LOOP THROUGH THE RETRIEVAL \POINTERS 
60$:  PUSHL R ; SAV — STATUS 
SDASSGN_S CHAN=(R4) =DEASSIGN CHANNEL 
pa OPR “#*M<RO> ; RESTORE STATUS 
RET ZAND RETURN 


IPL__SYNCH: 


$ : 
i jdt TfeSemnce vo Ser coment startn v aeape ists BRIE NCU OTE Yeh 


00000008 gaa 554 -LONG IPL$_SYNCH 

AE 6 ASSUME <IPL__SYNCH=BEGIN_NOPAGE> LE 512 

AE : .DISABLE LSB 
60 


AE 
AE - END 


“ 
“ 


? 
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Symbol table g73Ep=19 4 88:80:89 USYS SRCISYSSETIME MAR: 1 . () 
$11 - 1 TOQES$V_ABSOLUTE = 00000003 
reat p R02 - 
BASETIMESZ = 
BASE YEAR = 
BEGIN_NOPAGE GR 02 | 
PARAM _MAP s 4, 
BUGS _BADBOOTCB etereeee | 
COMPOTE TODR R 
CVT_TIME R 
ENDTIME 9 R 
ERROR 000017C R 
EXESA_SYSPARAM eeeeeree xX 
EXESBOOTCB C eteereee 
EXESC SYSE eeeneeee 
EXESGC_TODR eeeeerer x 
EXESGL_TOFL etereree =X 
EXESGQ_ SYST treeeeee x 
EXE$GQ_ TODC erereree =X 
EXESINSTIMG eteneree 8 =X s 
EXESREADP TODR eeenerer =X 
EXESSETIME 0000 4p RG 
EXESSETIME_INT 0000043 RG 
EXESWRITEP_TODR eeeeesee 8 
ExiT 4944 094 0 
10$_ WRITELBLK = 0000002 
IPLS_POWER = 0000001F 
IPL$_SYNCH = 00000008 
IPL__ SYNCH 00002AA R 0 
LCKSGQ_BITMAP_EXP ettereee x 0 
LOCK _ERD 0000219 R 
LOCK_IPL B00 iS R 9 
LOCK START 000 g R 
PCBSO_PRIV = 00 4 
IPL = if 
PRVSV_LOG_10 = 0 
PRVS$V_OPER = 1 
ECAL E2 R 
SAVE_TIME 19 R 
SCALE 85 R 
SCALE2 9R 
SET_TODR p R 
SET_TODR1 R 
SS$_ACCVIO = C 
SS$_IVTIME = 4 
SS$_NOPRIV = 4 
SS$_NORMAL = 000 1 
SYSSASCTIM etererer GX 
SYSSASSIGN eteeeeee GX 
SYSSBINTIM eeereeee 6X 
SYSSDASSGN eeeeeree 6X 
SYS$Q10W eereerer 6X 
SYSDISK R | 
TIMADR = 
TQESB_ROT = 
TOESL_ TOBL = 
TQESL_TOFL = 
TQESQ_TIME = 
| 
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eee -eceeeeeececcen> 


! Psect synopsis ! 


pen w erst es awn cee es 


PSECT name Allocation PSECT No. Attributes 


, ABS . 8 6 ( +) 00 ¢ 0.) NOPIC USR CON ABS LCL 

SABSS ( -> Q1¢ ¢.) NOPIC USR CON ABS LCL 

YEXEPAGED AE ( 686.) 02 ¢ 2.) NOPIC USR CON REL LCL 
tener ewe wo meer ee seen emcee a > 


! Performance indicators ! 


Gem oeoeeeeeeeeseeeeoeeeces} 


SHR NOEXE NORD NOWRT NOVEC BYTE 
HR EXE RD WRT WOVEC BYTE 
SHR EXE RD WRT NOVEC BYTE 


SEs 


Phase Page faults CPU Time Elapsed Time 


Initialization 29 :00: 8-08 0:00: 9.¢7 
Command processing 114 if sik 3: 701.64 
Pass 1 334 :00: 44 :00: 49 
rakes sate sot np BS BEG 
=a SB HR Bg 
trese-reterence output 0 :00. § 0:09: 9.00 
Assembler run totals 606 716.46 0:00:37. 


The working set Limit was 1500 pages. 
64976 bytes (127 pages) of virtual memory were used to buffer the intermediate Sede. 
There were 60 pages of symbol table space allocated to hold 1174 non-local and 13 local symbols. 
source Lines were read in Pass 1, producing 18 object records in Pass 2. 
1 pages of virtual memory were used to define 50 macros. 


a ees Cet 2 
Macro Library statistics ! 


: 
$m e er ee eee eee eee ee wom ae 


Macro Library name Macros defined 


~$255$0UA26: (575-0891 18.m.B:1 Sait cosines: 
$255$0UA28: (SYSLIBIJSTARLET.MLB;2 1 
TOTALS (all Libraries) 27 


1361 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSSETIME/OBJ=OBJ$:SYSSETIME MSRC$:SYSSETIME/UPDATE=(ENHS:SYSSETIME) +EXECMLS/LIB 
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